program example
use polymorphic_complextaylor
implicit none 
integer no,nv
type(real_8) x(2),k

  call alloc(x);call alloc(k);
        k=0.1d0 
        call make_it_knob(k,1)


  CALL INIT(NO1=2,ND1=1,NP1=1,NDPT1 =0)  
  
        x(1)=1.d0.mono.1
        x(2)=1.d0.mono.2

        x(1)=x(1)+x(2)  
        x(2)=x(2)-k*sin(x(1))
        call print(x(1),6);call print(x(2),6)

c_%knob=.false.
        x(1)=1.d0.mono.1
        x(2)=1.d0.mono.2

        x(1)=x(1)+x(2)  
        x(2)=x(2)-k*sin(x(1))
        call print(x(1),6);call print(x(2),6)
c_%knob=.true.
        call kill_knob(k)

        x(1)=1.d0.mono.1
        x(2)=1.d0.mono.2

        x(1)=x(1)+x(2)  
        x(2)=x(2)-k*sin(x(1))
        call print(x(1),6);call print(x(2),6)
 
   call kill(x);call kill(k);
end program example